home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SuperHack
/
SuperHack CD.bin
/
SCRIPTZ
/
CLONEDET.ZIP
/
clone12.txt
next >
Wrap
Text File
|
1996-08-31
|
4KB
|
81 lines
=CloneStopper= ver 1.2 by Poolshark for mIRC 4.6
*NOTICE*
This script uses a format, commands, and identifiers that were introduced in mIRC ver 4.52/4.6 -
It will NOT work in 4.1.
Features:
* Clonestopper is a clone monitoring system that will detect non-op clones as they join a channel
* Detects the 1st clone and notifies ops of the clone's nick, the nick of the owner, and site
and notifies both nicks of clone violation.
* Upon the joining of a second Clone, will notify ops of a muliple clone violation, ban the site
and kick ALL nicks.
(If you are the only op in a channel, it will skip the /onotice alert and echo to your active window.)
Installation Notes:
* CloneStopper uses mIRC's Internal Address List (IAL) to check the address of other people currently
in the channel, be sure that the IAL is X'd in your remote section or it will not work properly.
* If you are familiar with remote events, feel free to adjust the ON JOIN event to suit your needs,
ie: If you have changed your default user level to something besides 1, use that. If you already have
an ON JOIN event for default users, you can simply add | /clonestopper to the end of it etc.. The
ON JOIN line is only the trigger, the alias is the actual script.
* It will work on multiple channels, but it uses quite a bit of processing power
especially in busy channels, and may slow down other events depending on the speed of your PC, lag, etc.
The Script:
You can copy and paste the following to their respective sections..
Event:
+1:ON JOIN:#Yourchannelname:/clonestopper
Alias:
clonestopper {
set %nopnick 0
set %c 0
:next
inc %nopnick 1
if $nopnick(%nopnick,$chan) == $null goto done
if $address($nick,3) == $address($nopnick(%nopnick,$chan),3) && $nick != $nopnick(%nopnick,$chan) goto clone
else goto next
:clone
inc %c 1
set %clone $+ [ %c ] $nopnick(%nopnick,$chan)
goto next
:clone1
if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $nick is a clone of %clone1 - $address($nick,3)
echo 4 $active = $+ CloneStopper $+ = $nick is a clone of %clone1 - $address($nick,3)
notice $nick Clones are not allowed in $chan if you have ghost type /msg nickserv ghost nickname <pswd> or message an op
notice %clone1 Clones are not allowed in $chan if you have ghost type /msg nickserv ghost nickname <pswd> or message an op
if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $nick and %clone1 have been notified
echo 4 $active = $+ CloneStopper $+ = $nick and %clone1 have been notified
goto end
:clone2
ban $chan $nick 2
kick $chan $nick =CloneStopper=
kick $chan %clone1 =CloneStopper=
kick $chan %clone2 =CloneStopper=
if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = Multiple Clones Detected!
echo 4 $active = $+ CloneStopper $+ = Multiple Clones Detected!
if $opnick(0,$chan) > 1 onotice $chan = $+ CloneStopper $+ = $address($nick,3) Banned and nicks flushed from channel
echo 4 $active = $+ CloneStopper $+ = $address($nick,3) Banned and nicks flushed from channel
goto end
:done
if %c == 0 goto end
elseif %c == 1 goto clone1
else goto clone2
:end
unset %clone*
unset %nopnick
unset %c
halt
}
Final Notes:
Like all other scripts, this is not supported by #mIRC, If you have any problems/suggestions on using this script please
EMAIL me at turquidi@pacificnet.net or you may be able to track me down at #mIRC DALnet.
I would appreciate it if you wouldn't change the alias, IF you do, don't expect me to troubleshoot it for you, you changed
it, you figure it out <G>
Happy clone kicking :)
-Poolshark